﻿Public Class add2numbers
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub bt_calcresult_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bt_calcresult.Click
        Dim firstnumber, secondnumber As Single
        firstnumber = CSng(tb_number1.Text)
        secondnumber = CSng(tb_number2.Text)
        Dim result As Single
        result = firstnumber + secondnumber
        lbl_result.Text = CStr(result)
    End Sub
End Class